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INTRODUCTION 


This technical memorandum presents three computer programs used at Ohio 
University for Omega data conversion, summary, and preparation for distribution. Program 
logic and sample data formats are included, along with operational instructions for each 
program. 


Flight data (or data collected in flight format in the laboratory) is provided by 
the Ohio University Omega receiver base in the form of 6-bit binary words representing the 
phase of an Omega station with respect- to the receiver's locaJ clock. All eight Omega 
stations are measured in each 10-second Omega time frame. In addition, an event-marker 
bit and a time-slot D synchronizing bit are recorded. Program FDCON is used to remove " 
data from the flight recorder tape and place it on data- pro cessing cards for later use. 

Program FDSUM provides for computer plotting of selected LOP's, for single- 
station phase plots, and for printout of basic signal statistics for each Omega channel 
Mean phase and standard deviation are printed, along with data from which a phase distri- 
bution can be plotted for each Omega station. 

Program DACOP simply copies the Omega data deck a controlled number of 
times, for distribution to users. 

These programs were developed on the Ohio University Computer Services' 
System/360 Model 44 computer. Any special coding which may be system-dependent is 
noted in the individual program descriptions. 



II. FORTRAN COMPUTER PROGRAMS 


The computer routines reported here were developed on the Ohio University 
IBM System/360 Model 44 computer, using standard FORTRAN IV language. Two routines 
are used by program FDCON which are system-dependent. These routines are - fu I ly des- 
cribed so that non-Ohio University users may write suitable routines for use at their installa- 
tions. 

A. Flight Data Convert - FDCON. The listing for FDCON appears on the following 
pages. The purpose of this routine is to read the Omega data-col lection tape (produced by the 
Kennedy 1600 incremental tape recorder) and produce punched cards containing the commu- - 
fated phase data from the eight Omega stations. The Kennedy tape is generally produced as 
a" one-record fi le containing 65/535'bytes'or less t followed by a tape mark. (end-of-file). i . . . 
indicator. 

FDCON punches cards with 24 two-digit Omega phase measurements each, 
followed-by the eight-digit card sequence number. Each phase measurement consists of two ~ 
digits, with the number in the range 00-63. If a minus sign appears in the three-digit field 
reserved for each measurement, it indicates an event mark placed at this position in the 
data. Event marks should be separately documented for each data set. 

On the last card of a deck, the end of phase data is signaled by a 99 in the next 
measurement position. 

Card deck data always begins with Omega station D, referenced to the 10.2 
KHz time slot. Each card contains three complete Omega sequences of eight measurements 
each. 

FDCON uses two system-dependent routines which are generally written in the 
particular machine language being used. Subroutine TAPERR is called in the Ohio University 
system to set the number of tape error retries which will be attempted by the system. Since 
Kennedy digital tapes have, from our experience, shown a relatively high error rate when 
reading very long records/ the retry rate Is set relatively low. 

Subroutine VTA P2 a I lows, the- recovery of variable- length records regardless of 
tape errors. See the FORTRAN listing at statement number 15. The routine fills the buffer _ 
IN from data set 4 until either the end-of-record signal or 65,535 bytes are transferred, 
whichever occurs first. The actual number of bytes transferred to storage is returned in 
IACTL. ERR is a 3-word error buffer, not used in this program. Statement number 53 is 
taken on end-of-file or tape mark signal, and statement 23 is taken on tape errors. 

VTAP2 transfers data until record end or an error occurs. In FDCON, we wish 
to recover all possible data, so data transferred previous to-the tape error is available for 
conversion to cards. 

A printed listing of output data is produced, showing minus signs for event 
marks, along with phase data and card sequence numbers as Integers. The program places 


- 2 - 



uuuuuuuuuuu 


OMEGA TAPE CONVERT i 

■ EO CON • -- - - -- ■ - - ••• - — - ! 

• . 'I 

READS OMEGA DIGITAL TAPE (65535 BYTES MAX) TO TAPE MARK AND CONVERTS I 
TO CARDS IN 13 FORMAT. EVENT MARKS RESULT IN NEGATIVE NUMBERS. 

! 

READS UNTIL IT HITS 2 CONCURRENT TAPE MARKS. OR. NUMBER OF FILES \ 

GIVEN ON INPUT CONTROL CARD? FORMAT: FILES=N* WHERE N-l~9 j 

R. . W... LILLEY*- AVIONICS*- NOVEMBER *-“1-974- =. . - 1 

INTEGER E*BK 

DATA E/*E*/*BK/« • / . . 

-■ INTEGER ERR ( 3 ) .CBUF( 24 >/24 *99/ - - ------ 

LOG I CAL* t INC65535) Z65535* .FALSE./ 

LOGI CAL * 1 IMA ) 

EQUI VALENCE! ITMP, I A< 1 ) ) 

- C. . . SET NUMBER . OF ERROR RETRIES FOR -TAPE-* - • - - - ----- - 

CALL T APERRC 2 ) 

I PCM-2 
I TMP =0 

I F IL E= 99 s ’* 

READ< 1 , I *END = 1 O) IF ILE 
1 FORM AT (6 X. I 1 ) 

10 ISW-0 

— DO 2 0-1-1 *-IF ILE - - - ' — - 

■ ic = o 

I T S = 0 ■ ■ ' 

IBF-0 .... 

C...USE OHIO UNIV. MACHINE-LANGUAGE TAPE- READ -TO GET AROUND ----- 

C... ERROR PROCESSING* ETC. (SEE WRITEUP) ‘ 

15 CALL VTAP2 ( 4 * I N* 65535* IACTL* E RR*&5 .3 *&23) 

724 IF( I ACTL pLT.O ) STOP l 

PRINT 24 .1-, I ACTL - - 

24 FORM AT ( * RECORD IN FILE *,I1**: * * 16* * BYTES*/) ' ‘ 

ISW-0 

I S W 2 = i • 

- DO 2 8 J=l* IACTL - ■ — - ’ - A- - 

I A(4 )=IM( J ) 

ITS-ITS+1 

IF < ITS .EG .9) ITS= 1 

C... CHECK FOR EVENT "*’.T 

10=1 TiMP- 12 8- - . 

C ERROR - GUT OF SYNC. 

LTN=BK ... - - — - - -- 

IF( 10 .GE .64. AND. ITS.EQ. 1 )L IM=E 
IF(L IN.EQ. E) IPCH-0 - 

IF(IQ.LT.O) tB-1 • 

IF( IQ.LT.O )- IQ=IQ+128 : L-_ - : - 

C... CHECK FOR SYNC. •* ■ 

IF( IQ.GE.64) TQMQ-64 

IF( I E. EO . 1 ) I Q = - IQ • 

IBF= IBF+ 1 - - - ■- — 

IF( IBF.GT.24 >G0 TO 120 
130 CBUF(IBF)=IQ 
GO TO 28 
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C - . PUNCH . 

120 IC=IC+1 

WRI TE( IPCH ,121 ) CBUF * 1C 

121 FORM AT ( 2413 ♦ 18 ) 

PRINT -122, CBUF, TC, LIN - -- - • 

122 FORMAT! IOX',2413 » 18, 5X,A1 ) v 
DO 1 23 K = 1 ,24 

123 CBUF ( K ) =99 

— IBF= 1 .... . ... 

GO TO! 130 , 20 , 1 55 ) , ISW2 
28 CONTINUE 
GO TO 15 

C ... EOF . L .-L. 

53 PRINT 54 

54 FORMAT (» TAPE MARK*/) 

IF { I SW .EQ. I ) STOP 

... . I SW=1 1 : . 

TSW2=2 

IF( I BF.EO. 24 ) I SW2=3‘ 

GO TO 120 

1 55 I SW? =2 

GO TO 120 
20 CONTINUE 
STOP 

. 23 PR INT -7 2 3 - 

723 FORMAT { • ***TAP£ ERROR 1 /) 

GO TO 724 
END 
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an "E" at the end of any line which is out of synchronization (i.e., where the "D" channel 
sync bit does not occur every eight data spaces). When this sync error occurs, card punch- 
ing is stopped, although printing continues. 

Data set zero (0) is used by the-Ohio University system as a dummy data set. 

If FDCON is implemented at other installations, some other data set number must be pro- 
vided, with Job Control statements to dummy the output. ' The data set name in FDCON is 
IPCH. For the Ohio University system, the data set reference number is 2, set early in the 
program. The data set number is changed to zero during the “CHECK FOR EVENT 11 program 
section. 


FDCON requires one control card, in the Format "FILES “ N -This-card stops 

program' activity after N files (in the range 1-9) have been read from-Tape. If the card is 

omitted>- the number of files read will be set to 99. Tape reading is terminated in this case 
by reading the 99th file, or by reading two concurrent end-of-file marks (tape-mark- 
characters). 

B. Flight Data Summary - FDSUM. The FDSUM program listings appear on the 
following pages. FDSUM was written as a n quick-look n data summary program to allow - ~ 
reasonability checks or discovery-mode observation of Omega flight- test data collected by 
the Ohio University Omega receiver. FDSUM accepts as Input one control card followed 
by an Omega phase data deck, such as the card output from FDCON, discussed earlier. 

The format of the control card is somewhat variable, beginning in Column 1: 

S-S, S+S (difference of two Omega station phases, and 
sum of phases) 

Sbb, S (plots of two Omega station phase data points) 

where S represents the Omega station identification letter, and b repre- 
sents a blank card column. 

For example, if the user wishes to compute Omega LOP’s BD and AB, his 
control card would read “B-D, A-B” . If he wishes to compute LOP BC and display the phase 
data associated with station A, his card would read “B-C, A". If he wishes to display the 
sum and difference between two station phases (elliptical-hyperbolic navigation) he would 
code, for example, "B-D, B+D". 

The control card triggers simultaneous printer plots of two graphs, based upon the 
two fields on the control card. A small section of a sample graph appears immediately after 
the program listing. It is noted that the graph is self-timing, in that each X-axis point appears 
exactly ten seconds later than the preceding point. In the Y-axis direction, 10 points per 
inch are present, with each point representing 1/64 of an Omega lane. 
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-C. . .OMEGA— TEST- -DATA SUMMARY-PROGRAM-- FOSUM - — . — ” 

C • « • READS OMEGA DATA DFCK FROM FOCON AND PRODUCES PLOTS OF SELECTED 
C.. -PHASE MEASURES, SUMS OR DIFFERENCES; PRINTS MEAN, S. D * , AND. 

C... SPECTRAL DATA FOR EACH OMEGA TIME SLOT. 

C... INPUT DECK FROM FDCON IS PRECEDED BY ONE CONTROL CARD* FORMAT; 

cl*. A— 8 » D+G - GIVES TWO PLOTS ONE FOR DIFFERENCE OF A AND B PHASE, 

-C- AND -ONE- FOR -SUM OF- D AND G PHASE*- - - - - - 

C...ONE PLOT MAY BE DONE BY ELIMINATING COMMA AND SECOND EXPRESSION 
C* .* ONE-STATION PHASE- PLOT MAY BE MADE BY USING THE DESIRED STATION . 
C LETTER FOLLOWED BY TWO BLANKS* 

.-C ...... . -BLANK CARD- Y I EL DS - NO. PLOT -AT - ALL ----- — - — - - ----- 

c « • » 

C*.. R. W. LILLEY, AVIONICS, NOVEMBER, 1974 
C 

I N TE GER -S8UF (-64 * 8 ) /51 2*0 / - - - - — - 

INTEGER SK/* * / , STAR/*** /*E/*E*/,LINE( 132) »LQ(9) 

DIMENSION IN ( 24} , EN( 8) , SUM(8 ) , SUMSQI 8 ) ,EM( 8) . ESDI 8 > 

■ INTEGER I BAR/* | * / 

-I N TE-GE R — KL (-4 ) ----- - — : - — 

INTEGER IP/* +• /, LAI 3) *LB (3) ,LT (9)/* D* , * E * , • F * * * G • , • H * , » A* * * B • , . 

* »C • » • * / - 

IPS- 1 

• " DO 20 1=1,8 

EN (I ) = 0 * 

SU M { T ) =0 

— 2 0 SUMS Q C 1-3 =0.* - v ----- ~ u ■ ----- — — 

C * * * READ CONTROL CARD AND PROCESS IT 
RE ADI I ,2 }L A , LB 
2 FORMAT! 3A1 , 1 X,3A 1) 

26 KL! I )=0 . . 

. DO 16 1=1,9 

IFI LAI I ) *EQ.LT ( I ) ) KL I 1 } - I 

— I F.C L A (. 3 ) ♦ EO . L T( I ))KL<2) = I -- -n-—---—-- 

IFILBI 1 ) *EO.LT( I ) )KL ( 3) -I 
IF (LB( 3> .EQ.LTI T ) )KL(4 V= I 

16 CONTINUE 

DO ...l .23 ...I = I ,-4 ' t- - 

IF (KL( I ) -NE.9) GO TO 129 
123 CONTINUE - 

IPS=2 

1 2.9— DO — U- 1=1, 4 ' - - ~~ ^ - - — — — - 

IFIKLC I ) *GT.O )GO TO 17 
PRINT 18 

13 FORMAT! *. *** CONTROL CARD ERROR* ) 

17 CONTINUE ' 

L A M = l - 

IF (L A< 2 ) *EO. IP >LAM=- 1 

7" IF (LB( 2) *EO. IP )L8M=-l 
IF{ IPS *EQ*2)G0 TO 10 
PRINT 9. LA, LB 

„ _ .9 FORMAT (.«.! OMEGA.., PLOTS: *,» 3 A 1 • 64 X , 3 A 1 / * 1 0- SEC ONDS PER -LiNE--! DOWN 

* *>; 1/64 LANE PER CHARACTER (ACROSS).*/) 

PR I NT 786 - 

786 FORMAT!/* 0 * , T65, * 63 * * T6 8 , * 0 ' , T 1 30 , • 63 * ) 

PRXNT— 7-8-7- : ^ — 

787 FQ RM A T ( *• **130{*_*)) . ' > . 

C...READ INPUT DECK 

10 READ! I , 1 *END=50 ) IN 

■ _1 F.0 RM A T ( 2 4 I 3 ) - ... 

C*.. PROCESS EACH PHASE MEASUREMENT ON CARD 
DO 1 1 J=1 ,3 

C. ..CLEAR plot BUFFER 

-- 1 _ineii)=bk 

L I NE I 3 ) — I B AR \ 

LINF(68)=I8AR 

_ llnei 66)-i.bar i.. . ' 

LINE I 131 )-IBAR ' 

DO 1 2 K — l ,8 
LL =C IN( ( J- 1 ) *8+K ) ) 
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c*.. CHECK FOR END OF DATA <99) ■ 

IF n_L.GF.99) GO TO 50 
L=IABS<LL> 

- SUMCK ) =SUM< K ) +1 

EN(K) =EN( K) * l . •• 

SUMSQ(K)=SUMSQ(K)+L^L •' 

LQ ( K > = L • 

- — SBUfr-C L+-1- ♦ K )-= SBUF-< L+ 1 ,K) + i - 

IF(LL.LT.O) LINE(2)=E 

1 2 CONT I NUE ..... .. . .. 

C PLOT 

_I F.C_I PS * E0 *2 ) GO— X O - -10 .... 

IF< KL( 1 ) .EQ. 9* AND.KL <2 ) .EQ.9 ) GO TO 456 
LOPI-LQ< KL( ! ) )-LQ{KL <2) ) *L AM 
IF (LOP1 »LT *0 ) LOP 1 — 64+LQP 1 

I F. ( LOP 1 * GE-. 6 4) LO.P 1 =L OP 1.^64 . ... .. .L L. ... _*... 

LINE(LQP1+3)=STAR 

456 IF< KLC 3 ) . EQ.9* AND.KLI4 > * EQ .9 )GO TO 457 
LOP2=LQ < KL ( 3 > ) -LQ< KL < A ) ) *LBM 

IE. (LOP 2 * LT..*0 )L OP 2- 64 +L OP 2 ; i 

I F ( L0P2 • GE .64 ) LOP2 -LOP2-64 
LINE<LOP2+68)=STAR 

457 CONT I NUE 

PR I NT-.11 2 * L I-NE ... _ . 2 . ; 

I 1 2 FORMAT { 3 3 2 A 1 ) 

I I CONTINUE 
GO TO 1 0 

—C R R I N,T._ S T I X 

50 PRINT iOI 

101 FORMAT! * 15TATI ST ICS FOR EACH TIME SLOT*/) 

2 0 0. FORM AT< 1 OX 1 D E F G H A B C*/> 

PRINT-. 2 C 0 ‘ ...... ; 

00 1 02 I- 1 , 8 
EMC I ) — S U M ( I ) / E N ( I ) 

102 ESDCI)=SQRT { { SUMSQ ( I )- { (SUM ( I ) * *2 ) /FN ( T > ) ) /FN ( I ) ) 

-PR.I NT.. I 0.3 * EM , E SD . . .. ... •.... ... . 

103 FQRMATO MEAN ,* * 8 ( F4 . I * 1 X ) // • S.D* • 8 < F4 . 1 , 1 X > / > 

.PR INT 104 ' " ■ 

104 FORMAT (» SPECTRUM DATA*/} 

.-...PR I n T -2 Q 0 ' : — - „ 

DQ 105 1=1,64 

K-r-i 

PRINT 106»K*(S5UF( I •» L ) *L = 1 *8) 

1 0 6 ..... FO RH AT. <X X , I 2 * 5 X , .8 < .1.4, 1 X ) ) _ 

105 CONTINUE 
STOP 
END 
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STATISTICS FOR EACH TIME SLOT 

D E F G H A B C 

MEAN 31.8 29*7 31*5 31.7 31.4 31.3 32.6 30.5 

S.D. 13.3 18.4 18.6 18.4 18.4 IS. 5 17.5 17.8 

SPECTRUM DATA 

D E F G H A B C 

0 13 17 13 12 14 11 11 12 

- 1 13 1-7- : 1 2 1 8 1 5 10 — 9 - 1 1 


2 

1 6 

1 2 

2 3 

1 4 

1 2 

20 

1 3 

1 3 

3 

12 

15 

18 

i 4 

17 

2 1 

1 4 

1 4 

4 

13 

17 

15 

7 

13 

1 9 

13 

12 

5 

1 4 - 

-1-5 


.1-2- 

. ,1 6 - 

12 

.... 1 4- ... 

1 6 

6 

-20 • 

16 

.. . 

14 

2 1 

13 

9 

13 

9 

7 

12 

1 4 

12 

1 7 

19 

1 9 

1 9. 

l 2 

8 

9 

1 6 

9 

1 3 

1 1 

1 4 

8 

1 3 

Q 

T 5 

...15. 

.13 . ... 

1-4. 

........... 9 

- 1 2 

.... .. .5. ... 

.. 1-4 

1 0 

13 

1 3 

1 3 

1 5 

1 6 

1 3 

' 8 

1 2 

1 1 

1 1 

1 9 . 

14 

8 

1 I 

1 6 

1 4 

24 

1 2 

1 6 

17 

1 3 

1 8 

1 3 

14 

13 

25 

1 3 

17— 

„ 1-1- 

13 . . 

1 0- 

- 1 8 - 

.. - .1.2 „ 

15- - 

. 8 ~~ 

1 4 

9 

1 8 

1 3 

1 3 

20 

I 1 

1 2 

1 4 

1 5 

14 

1 3 

1 4 

9 

8 

1 4 

8 

1 8 

1 6 

12 

16 

18 

1 6 

14 

1 0 

9 

1 1 

. 1 7 

__18 

..2.0— 

...17. 

12 — 

9- 

..^1.6- 

12__, 

—15 — 

1 8 

10 

1 4 

1 1 

1 5 

1 7 

1 7 

19 

13 

19 

15 

1 8 . 

11 

1 7 

1 2 

1 9 

15 

1 2 

20 

1 5 

16 

20 . 

20 

15 

1 0 ' 

1 1 

1 5 

. 2 1 : 

20 

-3 4— 

1-4.-.. ... 

-.18 . 

.22 

-14, 

7 

/. 1.1 

22 

13 

26 

1 1 

1 2 

9 

20 

1 1 

15 

23 

21 

1 8 

21 

7 

13 

9 

17 

24 

2 4 

1 3 

8 

17 

1 8 

1 4 

1 2 

2 0 

1 9 

.2 5 

12.— 

...1 4 . 

. . 1 3 

1.1 

.. ..,.1.5. . 

1 .6. 

15 .... 

.22 

26 

13 

1 2 

12 

6 

1 & . 

1 8 

. 8 

12 

27 

16 

15 

1 3 

1 4 

1 8 

1 8 

13 

1 3 

28 

13 

9 

15 

1 7 

■ 15 

1 O' 

1 7 

1 7 

29 

... 14 — 

9 

9 

-2 0 

1.0- 

10- 

1. 3 

. 4 4 - 

30 

15 

, 8 

16 

1 1 

3 2 

1 7 

2 0 

15 

3 1 

19 

9 

13 

1 2 ' 

1 4 

1 6 

1 7 

1 4 

32 

1 2 

1 4 

15 

9 

1 0 

1 0 

20 

21 

_.33_ 

. .1 5._ 

.1 1 

..... 1 .7. 

1.9.. 

20.. 

.....16 

1 5™. 

_ 1 6 

34 

13 

9 

8 

1 7 

13 

1 6 

1 8 

9 

35 

13 

1 3 

1 2 

1 4 

15 

13 

20 

1 5 

3 5 

15 

1 8 

14 

1 8 

1 7 

■ 7 

1 9 

1 4 

_ 3 7 

—11 

1.7.2 

....2 0. . 

1 6 — 

... .17.. 

. .16... 

1 8- 

1 3 — 

38 

17 

1 2 

1 6 

1 l 

20 

1 3 

26 

1 2 

3 9 

1 4 

l 3 

1 3 

1 9 

12 

1 7 

13 . 

1 9 

4 0 

16 

1 3 

. 1 0 

1 4 

1 2 

1 3 

17 

1 2 

4 1 

15. 

.JO ... 

.10.. ... 

2.0. 

.. 13 

1 2 . 

— 10 — 

— 1 4 

42 

16 

13 

1 5 

1 5 

12 

1 6 

1 7 

13 

43 

8 

1 5 

1 7 

1 1 

18 

22 

16 

19 

44 

17 

1 6 

1 o. 

l 5 

1 7 

1 1 

12 

8 

45 

,12 . - 

. J-5_ .. 

..... 23 

.. 1 6 .... 

8- 

. . .1 3- 

~ 13— 

. 15. 

46 

18 

8 

1 3 

1 0 

1 1 

7 

15 

1 2 

4 7 

14 

■8 

1 1 

1 0 

1 2 

l 7 

10 

1 7 

4 8 

14 

8 

1 3 

9 

10 

1 8 

17 

1 5 

49 

13.,.. 

. .1 3- 

... 19. . .. 

14_. 

.— 20.. 

9... 

V _1 4 

--J 3, , 

50 

16 

15 

■ 7 

20 ‘ 

15 

1 3 

l 7 

1 2 

51 

14 

19 

13 

1 6 

13 

1 7 

19 

1 1 

52 

13 

1 7 

17 

1 8 

17 

16 

■ 19 

13 

53 

.1.4 . 

.20 

.. -22- ... 

. ... .9 

... 15 - 

11 

.. . 1 9- - 

. 12- . 

54 

19 

1 3 

9 

18 

10 

9 

19 

1 7 

' 55 

1 1 

9 

15 

1 0 

1 6 

18 

1 9 

6 

56 

14 

1 4 

1 5 

1 3 

13 

20 

13 

l 6 

57 „.... 

_1 1 

„.l 0 

.1.1 

.1 0„... 

16 

5. 

8 ... 

9 .... 

53 

• 1 7 

1 1 

12 ' 

2 0 

1 0 

1 9 

1 2 

1 4 

59 

16 

9 

1 8 

1 6 

14 

1 3 

8 

1 1 

60 

1 3 

1 7 

15 

! 6 

1 0 

1 5 

. 5 

1 3 

6 1 — 

..17. . 

.1.5 

... 1.5... 

.10 

14 

. 12. 

18- - 

.,...1 1 

62 

1 4 

8' 

12 

9 

1 4 

15 

10' ■ 

1 1 

63 

1 1 

9 

15 

20 

1 9 

14 

13 

l 3 
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In addition, the program computes the mean, standard deviation, and spectral 
data for each Omega time slot, giving the number of data points at each 1/64 lane position. 
These statistics are computed for a "quick-look" at the entire data set. They are not useful 
directly for signal-statistical analysis. The control must be present. If it is blank, no plot 
is produced. 


Note that all Omega station identifiers given on the program control card are 
referenced to 10.2 KHz. In order to operate the program with 13.6 KHz phase data, the 
user must remember that. to plot the BD LOP at 13.6 KHz, he must specify the time slot 
(referenced to 10v2 KHz) in which -the appropriate signals appear.-- In this case, his control 
card would read C-E to obtain the 13.6 BD LOP. 

- ~ • This program is written in standard FORTRAN IV for the IBM System/360 Model 44 
at Ohio University. System-dependent code is avoided, so implementation on other computer 
systems should not be difficult. 

C. Data Copy - DA COP. The program listing for DA COP is presented on the fo l- 
lowing page! DACOF, through use of direct-access files, allows the user to copy an 80- 
column card deck from one to nine times. The input deck must not contain more than 3,000 
cards, or the program will copy only the first 3,000 input cards. A second DACOP run can 
then be made to copy remaining cards, if the deck is larger than 3,000 cards. 

One control card is required, as the first Input card. The format of the card is 
"COPY = N", where N is an integer from 1 to 9. If N is zero, one copy will be made. 

Note that this control card must precede the input deck. If it is missing, the first data card 
will be interpreted (wrongly) as the number of copies control card. 

DACOP uses a FORTRAN data file which is written, rewound and read as if it 
were a sequential (tape) file. Direct-access placement of this sequential file is possible. 

Output from DACOP consists of N copies of the input data deck, each copy 
followed by a blank card for separation. In addition, N copies of a printed listing of the 
data are produced, each separated by a page skip. 
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uououuouuuuu 

I 


. * —OMEGA- PROG RAM. -FOR - DECK CDPlES 1-9 -• — — ~ - 

. * .DACOP ■ • ‘ 

ITIoNE CONTROL CARD MUST PRECEDE INPUT DECK 

FORMAT--! S- -» , COP Y = N •? - - N— 1 -9 •— - - - ;• 

INPUT DECK MAXIMUM IS 3*000 CARDS 
... . OUTPUT- .„I S- N -COPI ES-QF- DECK WI TH - BLANK-- CARD- AFTER -EACH * 
• • ,R * w. LILLEY* AVIONICS* NO VEM3 ER , • 1 974 


I LD.I MENS IQN -IN (2 0)--- - - - — - 

DEFINE FILE 4( 3 0 00 ♦ 6 0 » E • 10 SK ) 

I C =1 

PRINT 6 

C . ♦.* REA D- .. C ON-T R 0 1 CAR D : — ~ 

RE AD C 1 *2 ) ICTL 
2 FORM AT { 5 X, I 1 ) 

C * ♦ • RE AD INPUT DECK 

LO READ < l-*-l-*END.=2 0 ) I N. — - ~ 

1 FO RM AT { 2 0 A4 ) 

ic-ic+i 

IF( IC*GT,3000)GO TO 100 

W R . I T E t_4 , I .) I N. 

GO TO 10 

C * • * l. T S T AND PUNCH OUTPUT DECKS 

20 IC-IC- 1 

:l__DO __.3T.__.K= L *.ICTl - 

REWIND 4 
DO 30 1 = 1 * IC 

READ! 4 , I ) IN 

_ .-..PUNCH _.l *.IN ~ 

PRINT 7,IN' 

7 FORMAT ( POX* 20.44 ) 

30 CONTINUE 

1 PR. I NX— 6 — - 

.6 FORMAT < * l « ) 

PUNCH 1 

31 CONTINUE 

ST.OP 

100 PRINT 101 

101 FORM AT ( * *** DECK TOO LARGE - 

GO TO 20 . . 

: END..—:_ 1 — 


FIRST 3*000 CARDS COPIED*) 
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III. SUMMARY 


The series of FORTRAN computer programs which is used for preparation of 
flight-test data for distribution to participants in the Tri-University Program in Air Transporta- 
tion Systems and to other interested users has been described. Obviously, these programs are 
highly dependent upon data input formats from digital magnetic tape as written during flight 
tests. The future plans for data collection during test flights call for additional data to be 
recorded. We expect to multiplex flight path data (heading, airspeed and altitude) on the 
magnetic tape along with Omega phase measurements. Such plans, when implemented, may 
call for changes both in. program input formats and ir> output data format. 

It is noted that data output from the current reduction programs is in card form. 
With the additional data on flight path, it is expected that magnetic tape output for distri- 
bution will be required, due to the volume of data which will be recorded even on relatively 
short flights. 

Card copies of any or all of the FORTRAN programs reported here may be obtained 
by contacting the author. 
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